acad0 <- read_csv("data/c0301dt.csv")
acad0 |> print()# A tibble: 15 x 3
time pubs salary
<dbl> <dbl> <dbl>
1 3 18 51876
2 6 3 54511
3 3 2 53425
4 8 17 61863
5 9 11 52926
6 6 6 47034
7 16 38 66432
8 10 48 61100
9 2 9 41934
10 5 22 47454
11 5 30 49832
12 6 21 47047
13 7 10 39115
14 11 27 59677
15 18 37 61458
